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1<... COPYRIGHT 1969, DIGITAL EQU I PMENT CORP . . MAYMARD, i-ASS.... 

SIHIS SUP-PRQGRA" ASSE^ISLET ''ITH SYSTEM PARAMETER riiE - S.MAC(V414) 

VLIST 

LIST 
jTHIS SUs-PROGRAM ASSEMBLEn WITH CQNF I GURaT I Of^ DEPENDENT FEATURE SWITCHE": - FT40N.MAc(V 

XLIST 

LIST 
TITLE CLKCSS - SCHEDULING ALGORITHM FOR NOM-SWAPPno SYSTEMS 
SUBTTL T. HASTINGS/TH TS3,17 6 tJEP 67 V001 
XP VCLKCS.0W1' 

;PUT VERSION NUMBER IN GLOB LISTING AND LOAOFR STORAGE MaP 

(scheduling algorithm is! 

;calleo every 60th of a second when current job is user «ooe 

ICALLEO when current JOB IS IN EXEC MODE ANQI 



ICALLi 



1, JUST STARTED TO^ wait FOR 10 

2, JUST STARTED TO WAIT FOR A SUSY SHARABLE DEVICE 

3, RETURNING To USER MODE AFTER TYPING CONTROL C 

4, RETURNING Tn usFp, ^ppj- ^pjER CLOCK TRIED To INTERRUPT 

CURRENT JOB WHILE IT WAS IN rxFC MODE 

5, AN ERROR OCCURRED IN CURRENT JOB 

SETOM TIMEF 

PUSHJ POPiNXTJOB 

RETURN WITH NEXT JOB TO RJM IN AC ITEM 



llf CLOCK HAS GONE OFF SINCE LAST CALL 



MNITIALIEE SCHEOULER(CALLE0 FROM lOjNU BEFORE ALL OTHER 
! DEVICES ARE INITIALISED) 



INTERNAL NXTINI 

000000 205040 777771 NXTINIl MQVSI TAC.-NQUEUE 

000001 402001 00(^066' SET2M AVALTB(TAC) 

000002 476001 000104' SETOM REQTABfTACl 



000003 253040 000001' 

000004 263140 000000 



AOBJN TAC, ,-2 
PDPJ PDP, 



INC. OF QUEUES 

ICLEAR SHARABLE DEVICE AVAILABLE FLAGS 
ISET SHARABLE DEVICE REQUEST COUNT Tn -i 
)IE NO jnB WAITING OR USING DEVICE 
lOTHER DEVICE IN I T I AL 1 FAT I ON 

;may CHonsE to Set request to mqre 

INEG. VALUE !F MORE THAN ON JO'^ CAN 
lUSE DEVICE AT ONCE 
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71 
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INTERNAL NXTJOB 

INTERNAL FTTPPSET.FTDISK 

EXTERNAL JOBiTlMEF,JRTST";,JOOMAX,jOBN,Pjt?STS,CPOPJ,CHKSHr 

ENTRY XCKCSS 



C000P'5 
J|0I^005 
I7a00l»6 
^000[^7 
("00010 
000011 

00i?ei2 

000013 
000014 
?00015 
C0(1016 
?00017 
?0?0?0 
000071 
700022 
?00023 
("00024 
000025 
!'00026 
000027 
000030 



000032 
000033 
000034 
000035 
000036 
000037 
000040 
00?041 



260140 
402000 

336200 
254000 
332000 
374044 

334044 
602040 
254000 
540040 
4760(J0 
542044 
201100 
336002 
365100 
321100 
200300 
241300 
201240 
3542!12 



000001 TsTAC 

000002 n=TACl 
000006 01=DEVDAT 
000005 C=DAT 



; TEMPOi^aRY 

JQUEUE NO. 

IQUEUE NO, SHIFTED TO MATCHING POS , OF JBTSTS WORD 

(COUNT OP JO" LEFT TO SCAN 



XCKCSS: 
NXTJOH I 



000200 

000001 

000000 

000017' 

000000 

000000 

000012' 

777777 

000020' 

000113' 

000066' NXT0; 

000013' NXTli 

000005 

000266' 

000022' 

000042' 

000072 

000003 

000000 

000075' 



NXT2I 
NXT3I 



PUSHJ PQP.CHKSHF 

'5ETEt^ T 

SKIpivl ITEM, JOB 

JRST NXTe 

SKIPE TIMEF 

SOSA T,JOTSTS( ITEM) 

SKIPA T, jaTSTS( ITEM) 

TRNE T.-l 

JRST NXTl 

HRR T,RNQUNT 

SETO" RN4VAL 

uRRm T, JBTSTSC ITEM) 

MOVEI O.HAXo 

SKIPN 4VALTB(Q) 

?OJGE 0.NXT2 

jUi^PL 0.NXT7 

MOVE Ql.O 

ROT 01, tQl7-jWP0S 

•^OVE! C.jOflMAX 

40SA ITEM,JOeP(0) 



000031 4760(?0 000066' NXT4I SETOM RNAVAL 



301200 
?012S»0 
554044 
620040 
306046 
254000 
363240 
344200 



000070 NiXT5! 

0000["1 

0000.20' 

311404 

440070 

000050' 

030023' NXT6: 

000032' 



CAIL ITEm.JOBN 
«OVEI ITEM, I 
HLRZ T.JRTSTSdTEM) 
jm T.RUNMSK + C^wn 
CAIN T.RUNABlEOK 
jRST NXT5 
SOJLE r,NXT3 
A0J4 ITEm,NXT5 



ISHUFFLE CORF IF NEEDEO 

ICURRENT JOB NO,, IS |T '^ULL JOB? 

lYES, no NOT DECREMENT QUANTUM RUN TIME 

INI, IS THIS A CLOCK iNTERRyoT CALL? 

lYES, DECREMENT QUANTU" RUN TJME 

I IN JOB STATUS WORD 

)N0, JUST PICKUP STATUS WORD 

•REDUCED TIME TO ZERO VET? 

INO 

lYES, RESET FOR RUN QUEUE QUANTUM 

IFLAG TO SCAN RUN QUEUE FOR DIFFERENT JOR 

ISTORE MODIFIED QUANTUM RUN TIME 

(HIGHEST PRIORITY QUEUE SCANNED FIRST 

ISHOULO THIS QUEUE BE SCANNED FOR A RUNABLE JOB? 

INO, LOOK AT NEXT LOWEST PRIORITY QUEUE 

lYESi LOOKED AT QUEUES NQUEUE-l . . , 07 

IMOVE QUEUE INDEX TO PROPER POS, 

JTO MATCH JOB STATUS WORD 

rNO, SCAN ALL JOBSCEXCfPT NULL JOB) 

ISCAN ALL OTHER JOBS IM THIS QUEUE FIRST 

IFLAG RU"-! QUEUE BEING SCA^^EP 

(GREATER THAN HIGHEST „08 ^0 , ? 

lYESi RESET TO KSKIP VULL JOB) 

IIS JOB RUNABLE? 

IMASK OUT JOB STATUS BITS WHICH DO NOT -aTTEP 

lADD IN OUEUE NO, IN PROPER POSITION 

lYES, IT IS RUNABLE AND IS IN Th!S QUEUE 

INO IT IS NOT, SCANNED ALL JOBS YET? 

INO, LOOK AT NEXT JO? 
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06 








"7 








08 


7a(»042 


paiZ'ia 


700032' 


"9 


f 0P'0i3 


?00270 


00(1077 ' 


9^ 


5"?I^04"1 


336370 


707366' 


91 


P'07045 


344100 


007031' 


9? 


73(»046 


403270 


000066 ' 


9i 


700047 


263140 


0000^0 


94 








05 


(iiace^e 






96 








97 








58 


^zfase 


200040 


000000 


99 








i7i 


730051 


302270 


000001 


1^1 


707052 


326040 


000040 ' 


172 








1P3 








174 








1^5 


C07053 


302170 


000072 


i:'6 


707054 


306170 


000071 


1.^7 


707055 


375002 


007066' 


178 


727056 


402072 


000066 ' 


179 


707057 


2e22-'2 


000075' 


lie 


707060 


322l?0 


707000 


m 


707061 


201040 


f2itl?l 


112 


7070fi2 


137040 


007000 


113 


7070(S3 


200042 


000113' 


111 


707064 


542044 


700034 ' 


115 


707065 


263140 


000070 


115 









iHERE IF NO JOBS FOu^JD ■''■^ Ru'.(Os-l) 



'gXT7l "OVEI C.jORN 
xOVE ITE",JOR 
■;KIP\' TI.RNaVAl 
4DJA Q,NXT4 
SET2P ITEMiRNAVAL 
POPJ PTP, 

>; X T 8 ! 

IFM FTTRPSET,< 

EXTERNAL STOPTS 

MOVE f, STOPTS 

CAIE ITEM.l 
JUMPS! T,N'XT6 



CAIE Q.Tsa 
7AIN Q. w?a 
SOSGE AVALTB(Ql 
SETEM AVALTB(0! 
"OVEM ITEM, jOBPt!3) 

ju"PF n.cPOPj 

"OVEI T.RNjQ 

^PP T'.PJBSTS 
"OVE T.QUANTSO) 
uRRw T, joTSTS( ITEM) 
DQPj POP, 



tSCAs ALL JD'JS INCLUDING PTSSIPl^ Njll ^"5 

ISTABTIN'-, -ilTM LAST JCP ^C RUN 

IHAS run C 'E'JE (G. 01 = 7 ) SEE'. SCANNE"? 

MO. FLAG That is has a\- sca', run ;uelE(Gi:1'=0) 

lYFS, CLEA= FLAG, SET sjll jig t- Pji; 
I RETURN 



;has a trpset jjo been done for ;OBi 

IhlTui \iON ?ESC AC7 

I is THIS job 1? 

IKEEP LOOKING IF NTT J5B1 AND 
ISTOPTS FLAG SET 



IIS THIS TTV WAIT SATISFIET 0? 

IIS THIS 10 WAIT SATISFIED QUEUE? 

IVES, DECREMENT COUN' OF JOBS wjTM SATISFIED (0 

IN", CLEAR AVAILABLE FLAG FOR THIS QUEUE 

ISAVE JOB NUMBER FOR THIS QUEUE FOR igEXT TIME" 

IIS THIS RUN QUEUE? 

INO, SET STATE CODE TO RUN 

ICLEAR WAIT CODE(SO HE WILL PE IN RuN IjruE) \ 

ISET QUANTUM RUNNING TIME FOB QUEUE 

IWMICH JOB HAS JUST LEFT 

(RETURN 
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117 INTERNAL FTCMECK , F TMONP 

lie 

H9 IFN FTCHECK + FTM0NP,< 

120 EXTERNAL J0BP.AV4LTB,RE0TAB,r)UANTS 

1?1 

122 DEFINE X(A,B) 

1?3 < EXTERNAL A ' AVAL i A • RE^^ i A ' flUNT 

12^ INTERNAL A'Q 

1?5 A'Q=?E 

126 RZ=2?*1 

127 > 

128 li^e 

12' OUEUES 

13B LOCsZH 

131 

132 > 

133 IFE FTCHECK*FTMONP,< 

13^ iAPPROPRlATE ENTRY IS NOM-ZERO WHEM SCHEDULER SHOULD LOOK 

135 lAT THAT QUEUE TO FIND A JOB TO RUN 

136 IWSAVAL CONTAINS THE NO, OF JOBS WITH 10 WAIT SAT I SF lEO ( a = NOME ) 

137 (SIMILARLY FOR TSAVAL 
138 

139 

14B DEFINE X(A,H) 

Kl < INTERNAL A'AVAL.A'Q 

1^2 A'Qs.-AVALTB 

143 A'AVALI f 

1*4 > 

145 

146 INTERNAL AVALTB 

147 

146 000066 AVALTBl QUEUES * X RN,7 » INTERNAL RNAVAL.RNQ 

149 000066 000000 000000 RNAVALI C 

150 000067 000000 000000 WSAVALI 

151 000070 000000 000000 TSAVALI 

152 000071 000000 000000 STAVALl 

153 000072 000000 000000 DTAVALI 

154 000073 000000 000000 DCAVALI 

155 000074 000000 000000 mTAVALI 

156 0000SI7 LOC=. -AVALTB 

157 > 
156 

159 000007 NOUEUE'LOC INO, OF QUEUES COUNTING RUN QUEUE 

160 XP MAXO.NaUEUE-1 IMAX STATE CflOE WHICH HAS A QUEUE 
161 

162 JDEFINE STATE CODES WHICH 00 NOT HAVE QUEUES ASSOCIATED WITH THEM 

163 

164 

165 DEFINE X(A) 

166 < INTERNAL A'Q 

167 A'Q=LOC 
166 L0C=L0C+1 
169 > 
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CLKCSS 



- SCHEDULING ALGORITHM FOR MON-SWAPPIMG SYSTEMS 
T, HASTINGS/TH TS3.17 6 SLP b^ V001. 



MACRO, V36 19!01 1-JL)N-69 PAGE 17 



173 








174 








175 


000075 






176 


1^0(^075 


000000 


000001 


177 


000076 


000000 


000001 


178 


("00077 


000000 


000001 


179 


0001['0 


(1000(^0 


000001 


1H0 


0001(11 


000000 


000001 


Ifll 


000102 


!!I00000 


000001 


182 


000103 


000000 


000001 



IFE FTCHECt< + FTMON;Pi< 

iLAST JOB SCMtnULEO FOR EACH QUEUE 



JORP: 



REPEAT 



Nt3UEUF,< 


EXP 




FXP 




FXP 




EXP 




FXP 




EXP 




FXP 





EXP 1> 



CLKCSS 



183 

1?6 
1P6 
1P7 
1?S 
1R9 
100 
191 
192 
193 
194 
195 

196 
197 
196 
199 

27e 

2:'l 



T. mSTI>GS/Ti^ TS3,17 6 SEC s; V7ei 
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ISHAR4BLF "E'.'I'-E: KEGrESt T is^E 1 GF \ER4l I £F: r'-R cthE-^ 3 E E": 
!C3\TAINC Ti.r ^^,v^EK QrjOQS hAI^JSG T '' .'SE '^-jmoil- D'"'-'C'" 
iivSREi; 4':C! RKHEG 43E U'«i,SE1 



:C! 



< 



X 1 A, B ) 
A ' PE" ! ? 

!ME9isA^ A'sra 



'^TER^AL RFCTAB 

?Z?l?'A 7.%7i?7 IZ7H7.2 RE'^TAtJ! TUEirS 

?>3?175 r-a."??? ;V7;??0 y WS.6 

cec"i?6 !"u?e.-e ???>??? x ts,6 

7f.?\7i ("a^e.'e ,'0?2->e y s]-,^ 

fZCllZ ?0?i'7e ?07^?0 y 0T,« 

fe?iii ?ei?a,>e p^sz^e y nc,4 

7^,71X2 C0J'P^e ?Z???2 y uT,4 



' R\,7 


t 


.SRE':i 


-? 


TSRE"! 


? 


'STPE'^t 


? 


■^TRE" 1 


>» 


nCREri 


c 


"THEr;i 


n 



RNRE" ! 



272 
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fQUANTUM RUNM\'G TIMT rQR £i,rn aUEUE IN J I FFI ES ( CLOCK TICKS) 



RNOUNT! e:XP 7 



273 




















274 








TEFINE 


x<A,B) 










2!"5 








< 


A'DU'.T! EXP 


P 








2?6 










INTERNAL A' 


QUNT 








2717 








> 












2?8 




















209 


(^00113 


00a0K0 


00C007 


QUANTS 


!5UEUFS t 




X Rn,7 


t 




210 


P100114 


0000PI0 


000006 




X WS.6 t 




WSOUNTI 


EXP 


6 


211 


000115 


000000 


000006 




X TS,6 t 




TSQU'>iT: 


EXP 


6 


212 


00PI116 


000000 


000006 




X ST, 6 t 




STOU^'Tl 


EXP 


ft 


213 


1^00117 


000000 


000004 




X DT,4 t 




OTClUN'Tl 


EXP 


4 


214 


000120 


(^00000 


000004 




X CIC,4 t 




DCQUWTI 


EXP 


4 


215 


000121 


000000 


000004 




X MT,4 f 




MTQUNT 1 


EXP 


4 


216 




















217 








> 












218 










END, 











NO ERRORS DETECTED 



PROGRAM BREAK IS 000122 
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AVALTB 


000066' 


INT 


CMWB 


?000d0 


INT 


nCAVAL 


00?073' 


INT 


DCREO 


000111 • 


INT 


□ TO 


000004 


INT 


FTCCL 


000000 




TTLOGI 


000000 




FTSWAP 


000000 




ITEM 


000004 


INT 


JOBMAX 


000027' 


EXT 


JWPOS 


000016 


INT 


MTAV4L 


000074' 


INT 


MTREQ 


000112' 


INT 


NXTO 


000017' 




NXT3 


000023' 




NXT6 


000040' 




NXTINI 


000000' 


INT 


PJBSTS 


000062' 


EXT 


OUANTS 


000113' 




RNO 


000000 


INT 


RUNABL 


440000 


INT 


STAVAL 


000071' 


INT 


STQ 


000003 


INT 


T 


000001 




TIMEF 


000011' 


EXT 


TSQ 


000002 


INT 


VCLKCS 


000001 


INT 


WSOUNT 


000114' 


INT 



C 


00?0f 5 




CPOPJ 


00(5060' 


EXT 


ncn 


P100005 


INT 


DEVDAT 


0000!?6 


INT 


nrOUNT 


000117' 


INT 


FTCMTC 


0000(!I0 


TNT 


FTMONP 


0000[?'0 


INT 


FTTRPS 777777 777777 


INT 


JBTSTS 


000044' 


EXT 


JOBN 


000042' 


EXT 


LOG 


000014 




MTQ 


000006 


INT 


NQUEUE 


0000t»7 




NXTl 


0000?0' 




NXT4 


0000,^1' 




NXT7 


000042' 




NXTjoa 


000005' 


INT 


n 


000032 




REOTAB 


000104' 


INT 


RNOUNT 


000113' 


INT 


RJNMSK 


111404 


INT 


STOPO 


000013 


INT 


STOUNT 


000116' 


INT 


TAC 


000001 


INT 


TIOKQ 


000010 


INT 


TSQUMT 


000115' 


INT 


USAVAL 


000067' 


INT 


WSREO 


000105' 


INT 



CHKSHF 


000005' 


fxt 


HAT 


000005 


TNT 


nCOUNT 


000120' 


IlilT 


0TAV4L 


000072' 


INT 


nTREQ 


000110' 


INT 


FTDISK 


000000 


TfilT 


FTRC10 


000000 




lOWQ 


000007 


INT 


JOB 


000043' 


FXT 


JOBP 


000075' 




MAXQ 


000006 


iNT 


MTQUNT 


000121' 


II^T 


NULO 


000012 


IfjT 


NXT2 


000022' 




NXT5 


000032' 




NXT8 


000050' 




POP 


000003 


iNT 


01 


000006 




RNAVAL 


000066' 


I^jT 


RNREO 


000104' 


It«iT 


SLPQ 


000011 


TtjT 


STOPTS 


000050' 


fx't 


STREO 


000107' 


I N'T 


TACl 


000002 


IMT 


TSAVAL 


000070' 


I N'T 


TSREO 


000106' 


inIt 


MSO 


000001 


iN'T 


XCKCSS 


000005' 


tn't 



A 


6*1 


6 


ACl 


6# 


6 


AC? 


6# 


6 


ACJ 


6# 




AEFERR 


6# 


6 


AL 


6# 


6 


ASScnN 


6# 


6 


ASSPRG 


6# 


6 


AVALTB 


36 


68 


B 


6# 


6 


BUFPNT 


6# 


6 


eUFWRO 


6# 


6 


C 


SI* 


73 


nHKSHF 


45 


54 


CLKR 


6# 


6 


CLSIN 


6« 


6 


CLSOUT 


6« 


6 


CMWB 


b* 


6 


CORCNT 


bit 


6 


CPOPJ 


45 


lie 


n 


6# 


6 


DAT 


b# 


6 


DCAVAL 


154 


154# 


DCL 


6# 


6 


OCLI 


6# 


6 


DCLQ 


6# 


6 


OCLR 


6i» 


6 


OCO 


154 


154* 


OCfJUNT 


214# 


215 


OCREO 


2C0# 


2511 


001 


6# 


6 


oon 


6« 


6 


DEN 


6# 


6 


DEVADR 


6# 


6 


DEVBUF 


6# 


6 


OEVCHR 


6# 


6 


DEVCTR 


6# 


6 


DEVDAT 


6# 


6 


PEVEXT 


6# 


6 


DEVFIL 


6# 


6 


OEVIAD 


6# 


6 


DEVIOS 


6# 


6 


OEVLOG 


6# 


6 


DEVMOD 


6# 


6 


DEVNAM 


6« 


6 


OEVOAO 


6# 


6 


HEVPPN 


6# 


6 


OEVPTR 


6« 


6 


DEVSER 


btl 


6 


OGF 


bit 


6 


DHMG 


b» 


6 


OIN 


6# 


6 


OINI 


b* 


6 



137 



IBS 



8b 



146 



148« 



149 



150 



151 



152 



153 



154 



155 



156 



81 



51 



50 



OLK 


6# 


6 








DMT 


6# 


6 








ONAERR 


6*1 


6 








OOU 


6# 


6 








OR 


5# 


6 








riRL. 


6# 


6 








DRM 


6* 


6 








OSER 


5# 


6 








OSI 


5l» 


6 








OSKRLB 


6# 


5 








OSO 


6# 


6 








□TAVAL 


153 


153# 








OTO 


153 


153# 








DTQUNT 


213# 


211 








OTREO 


199# 


200 








nVAVAL 


6# 


6 








PVCDR 


6# 


6 








[IVniR 


6l» 


6 








nVDIRI 


6» 


6 








OVDIS 


6# 


6 








nvDSK 


6* 


6 








nvoTA 


6i» 


6 








nviN 


6# 


6 








nV-LMG 


6# 


6 








DVLPT 


6# 


5 








nVMTA 


51* 


6 








nVOUT 


6# 


6 








nvPTP 


6# 


6 








nVPTR 


bit 


6 








nvTTY 


6# 


6 








ENTRR 


6# 


6 








FBMERR 


6# 


6 








FNFERR 


6# 


6 








FRGSEG 


6# 


6 








FT2RFL 


6# 










FTATTA 


6# 










FTCCL 


10« 










FTt;HFC 


6# 


117 


119 


133 


172# 


FTDISK 


10* 


44 


153 


199 


213 


FTEXAM 


6# 










FTFINI 


6# 










FTGETT 


6« 










FTHAL.T 


an 










FTKCT 


bit 










FTLOGI 


10# 










FTMONP 


6# 


117 


119 


133 


172 


FTPRV 


6# 










FTRA10 


6# 










FTRClB 


10# 










FTRCHK 


6# 










FTREAS 


6# 










FTSLEE 


bit 










FTSWAP 


im 











FTTALK 


6# 




FTTIME 


6# 




FTTR»C 


5* 




FTTRPS 


6# 
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